From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 24 Jul 2004 21:38:22 +0000 (+0000)
Subject: (Fwindow_at): Take account of FRAME_INTERNAL_BORDER_WIDTH.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21552
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4abd527175d0d35b779a1e82befa759c8b4a03bf;p=emacs.git

(Fwindow_at): Take account of FRAME_INTERNAL_BORDER_WIDTH.
---

diff --git a/src/window.c b/src/window.c
index 5aafd8a741a..409d0972fdd 100644
--- a/src/window.c
+++ b/src/window.c
@@ -938,8 +938,10 @@ column 0.  */)
   CHECK_NUMBER_OR_FLOAT (y);
 
   return window_from_coordinates (f,
-				  FRAME_PIXEL_X_FROM_CANON_X (f, x),
-				  FRAME_PIXEL_Y_FROM_CANON_Y (f, y),
+				  (FRAME_PIXEL_X_FROM_CANON_X (f, x)
+				   + FRAME_INTERNAL_BORDER_WIDTH (f)),
+				  (FRAME_PIXEL_Y_FROM_CANON_Y (f, y)
+				   + FRAME_INTERNAL_BORDER_WIDTH (f)),
 				  0, 0, 0, 0);
 }